#'###########################################
#'                                          #
#'  ------------------------------------    #
#'  |     COIN     __                  |    #
#'  |            >(' )                 |    #
#'  |              )/                  |    #
#'  |             /  `----/            |    #
#'  |             \  ~=- /             |    #
#'  |   ~^~^~^~^~^~^~^~^~^~^~^~^~^~^   |    #
#'  ------------------------------------    #
#'                                          #
#'###########################################

rm(list=ls())

#'#################################################################################################
#'#                                                                                              ##
#'#                                 Recuperation des donnees                                     ##
#'#                                                                                              ##
#'#################################################################################################


#'#
#'# Donnees statiques
#'#

source("C:/UQAR/Recherche/Maitrise/Donnees/R/DataManagement/loadStaticData.R")

#'#
#'# Donnees mobiles
#'#

source("C:/UQAR/Recherche/Maitrise/Donnees/R/DataManagement/loadMobileData.R")

#'#
#'# Donnees compilees
#'# 

all.errors.filtered <- rbindlist(list(static.errors.filtered[, list(LC, id, distance, diffLong, diffLat, type="static")],
				mobile.errors.filtered[, list(LC, id, distance, diffLong, diffLat, type="mobile")]))
all.errors.filtered[, type := factor(type, levels=c("static", "mobile"))]
all.errors.filtered[, id := as.factor(id)]

